OUTPUT TO c:\qadguicli\doc\difcost12.xls.

DEFINE BUFFER std FOR sct_det .
DEFINE BUFFER c06 FOR sct_det .
DEFINE BUFFER s06 FOR sct_det .

FOR EACH std WHERE std.sct_sim = "standard" AND std.sct_site = "500",
    EACH c06 WHERE c06.sct_sim = "2004-12C" AND c06.sct_site = "500" 
               AND c06.sct_part = std.sct_part,
    EACH s06 WHERE s06.sct_sim = "2004-12S" AND s06.sct_site = "500" 
           AND s06.sct_part = std.sct_part,
    EACH pt_mstr WHERE pt_part = std.sct_part AND pt_pm_code = "P": 
    IF abs(s06.sct_cst_tot - c06.sct_cst_tot) / s06.sct_cst_tot > 0.05 THEN
    DISP std.sct_part 
         std.sct_cst_tot LABEL "standard"
         c06.sct_cst_tot LABEL "2004-12C"
         s06.sct_cst_tot LABEL "2004-12S"
         pt_desc1  LABEL "Desc".


END.



